1 REM (null)(null)
3 POKE 775,191
5 REM (null)(null)
7 POKE 775,191
10 PRINT"[147]"CHR$(8):PRINTCHR$(142)
50 PRINT"[147]":POKE 53280,6:POKE53281,13
52 PRINT"           BASIC PHOTOGRAPHY"
54 PRINT"           BY STEVE WILLIAMS"
56 PRINT" THIS PRODUCT IS FREEWARE/PUBLIC DOMAIN."
58 PRINT" IN ORDER TO SUPPORT THE WRITING OF MORE"
60 PRINT"[145] EDUCATIONAL MATERIALS SUCH AS THIS,"
62 PRINT" PLEASE SUPPORT THE FREEWARE CONCEPT."
64 PRINT:PRINT" IF YOU KEEP AND USE THIS PROGRAM, YOU"
66 PRINT" ARE REQUESTED TO SEND $2.00 TO THE"
68 PRINT" AUTHOR. THERE IS NO OBLIGATION EXCEPT"
70 PRINT" THAT OFF YOUR GOOD WILL. THIS IS A LOT"
71 PRINT" PROGRAMMING FOR A MERE $2.00."
72 PRINT:PRINT"            STEVE WILLIAMS"
74 PRINT"            102 N. ANDREWS"
76 PRINT"            WACO, TEXAS 76706"
77 PRINT"         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
78 PRINT"         PRESS ANY KEY FOR MENU"
90 GETA$:IFA$=""THEN90
110 PRINT"[147]":POKE53281,8:POKE53280,11
112 PRINT"        [144] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
114 PRINT"         BASIC PHOTOGRAPHY MENU"
116 PRINT"  1 - ZONE 1  (APERTURE)"
118 PRINT"  2 - ZONE 2  (SHUTTER SPEEDS)"
120 PRINT"  3 - ZONE 3  (EXPOSURE)"
122 PRINT"  4 - ZONE 4  (DEPTH OF FIELD)"
124 PRINT"  5 - ZONE 5  (FLASH CALCULATIONS)"
126 PRINT"  6 - PHOTOGRAPHY DEMONSTRATION"
127 PRINT"         (A COLORFUL PROGRAM OF CAMERAS"
128 PRINT"         AND PICTURES THAT CAN BE"
129 PRINT"         PERSONALIZED BY YOU AS AN"
130 PRINT"         ATTENTION GETTER FOR A PHOTO"
131 PRINT"         SHOW BY A SCHOOL OR CLUB.)"
133 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
135 PRINT"  PRESS NUMBER TO LOAD DESIRED PROGRAM "
139 POKE198,0
140 GETA$:IFA$=""THEN140
150 ONVAL(A$)GOTO161,162,163,164,165,166
152 GOTO140
161 L$="ZONE 1":GOTO180
162 L$="ZONE 2":GOTO180
163 L$="ZONE 3":GOTO180
164 L$="ZONE 4":GOTO180
165 L$="ZONE 5":GOTO180
166 L$="PHOTO DEMO":GOTO180
180 POKE198,4
182 PRINT"[147]LOAD"CHR$(34)L$;:PRINTCHR$(34)",8";
184 POKE631,13:POKE632,82:POKE633,117:POKE634,13
190 END